object Container: TContainer
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 150
  Width = 215
  object TCPServer: TIdCmdTCPServer
    Bindings = <
      item
        IP = '0.0.0.0'
        Port = 3030
      end>
    DefaultPort = 3030
    CommandHandlers = <
      item
        CmdDelimiter = ' '
        Command = 'HELP'
        Disconnect = False
        Name = 'HELP'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerHELPCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'ADDGROUP'
        Disconnect = False
        Name = 'ADDGROUP'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerADDGROUPCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'DELGROUP'
        Disconnect = False
        Name = 'DELGROUP'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerDELGROUPCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'ADDSTUD'
        Disconnect = False
        Name = 'ADDSTUD'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerADDSTUDCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'GETGROUP'
        Disconnect = False
        Name = 'GETGROUP'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerGETGROUPCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'EDITGROUP'
        Disconnect = False
        Name = 'EDITGROUP'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerEDITGROUPCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'GETSTUD'
        Disconnect = False
        Name = 'GETSTUD'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerGETSTUDCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'DELSTUD'
        Disconnect = False
        Name = 'DELSTUD'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerDELSTUDCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'EDITSTUD'
        Disconnect = False
        Name = 'EDITSTUD'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerEDITSTUDCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'GETTEACH'
        Disconnect = False
        Name = 'GETTEACH'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerGETTEACHCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'ADDTEACH'
        Disconnect = False
        Name = 'ADDTEACH'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerADDTEACHCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'DELTEACH'
        Disconnect = False
        Name = 'DELTEACH'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerDELTEACHCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'EDITTEACH'
        Disconnect = False
        Name = 'EDITTEACH'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerEDITTEACHCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'EDITPASW'
        Disconnect = False
        Name = 'EDITPASW'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerEDITPASWCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'STOP'
        Disconnect = False
        Name = 'STOP'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerSTOPCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'START'
        Disconnect = False
        Name = 'START'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerSTARTCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'STATUS'
        Disconnect = True
        Name = 'STATUS'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerSTATUSCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'NEXT'
        Disconnect = True
        Name = 'NEXT'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerNEXTCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'BREAK'
        Disconnect = False
        Name = 'BREAK'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerBREAKCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'NEWTEST'
        Disconnect = False
        Name = 'NEWTEST'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerNEWTESTCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'ANSWER'
        Disconnect = False
        Name = 'ANSWER'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerANSWERCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'ENDTEST'
        Disconnect = False
        Name = 'ENDTEST'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerENDTESTCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TESTINFO'
        Disconnect = False
        Name = 'TESTINFO'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTESTINFOCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TIMEOUT'
        Disconnect = False
        Name = 'TIMEOUT'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTIMEOUTCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TESTVALUE'
        Disconnect = False
        Name = 'TESTVALUE'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTESTVALUECommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TESTDELETE'
        Disconnect = False
        Name = 'TESTDELETE'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTESTDELETECommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TESTCHANGE'
        Disconnect = False
        Name = 'TESTCHANGE'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTESTCHANGECommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TESTUPLOAD'
        Disconnect = False
        Name = 'TESTUPLOAD'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTESTUPLOADCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TESTLOAD'
        Disconnect = False
        Name = 'TESTLOAD'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTESTLOADCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'TESTDELETE'
        Disconnect = False
        Name = 'TESTDELETE'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerTESTDELETECommand
      end
      item
        CmdDelimiter = ' '
        Command = 'GROUPEXAMINE'
        Disconnect = False
        Name = 'GROUPEXAMINE'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerGROUPEXAMINECommand
      end
      item
        CmdDelimiter = ' '
        Command = 'RESULTGET'
        Disconnect = False
        Name = 'RESULTGET'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerRESULTGETCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'RESULTDEL'
        Disconnect = False
        Name = 'RESULTDEL'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerRESULTDELCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'ANSWERGET'
        Disconnect = False
        Name = 'ANSWERGET'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerANSWERGETCommand
      end
      item
        CmdDelimiter = ' '
        Command = 'GETEXAMINE'
        Disconnect = False
        Name = 'GETEXAMINE'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        Tag = 0
        OnCommand = TCPServerGETEXAMINECommand
      end>
    ExceptionReply.Code = '500'
    ExceptionReply.Text.Strings = (
      'Unknown Internal Error')
    Greeting.Code = '200'
    Greeting.Text.Strings = (
      'Welcome')
    HelpReply.Code = '100'
    HelpReply.Text.Strings = (
      'Help follows')
    MaxConnectionReply.Code = '300'
    MaxConnectionReply.Text.Strings = (
      'Too many connections. Try again later.')
    ReplyTexts = <>
    ReplyUnknownCommand.Code = '400'
    ReplyUnknownCommand.Text.Strings = (
      'Unknown Command')
    Left = 16
    Top = 8
  end
  object ApplicationEvents: TApplicationEvents
    OnException = ApplicationEventsException
    Left = 64
    Top = 8
  end
end
